VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmImplementations2 
   Caption         =   "Enter in Implemented Savings"
   ClientHeight    =   18000
   ClientLeft      =   0
   ClientTop       =   -17160
   ClientWidth     =   26000
   OleObjectBlob   =   "frmImplementations2.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmImplementations2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Written by Jalisa Greene
'Last Updated 6/10/2014

Option Explicit   '**must declare all variables**'
Public LocID As Integer
Public rowNum As Integer
Dim containNum As Integer

Private Sub UserForm_Initialize()
'**ACTION SUB CALLED WHEN USER OPENS THE USER FORM**'

    Dim aCell As Range
    For Each aCell In Worksheets("INV").Range("locations")
        If Len(aCell.Value) > 0 Then
        'If cell is not empty, add to Locations box for selection'
        cmbLocations.AddItem (aCell.Value)
        End If
    Next
    Call InsertPicklists
End Sub

Private Sub btnCancel_Click()
'**ACTION SUB THAT RUNS WHEN USER CLICKS CANCEL**'
    frmImplementations2.Hide
End Sub

Private Sub btnCSRateChange_Click()
'**ACTION SUB WHEN USER CLICKS THAT THERE IS A CURRENT SPEND RATE CHANGE**'
    frmRateChange.Show
    Call InsertInfo
End Sub

Private Sub btnBCRateChange_Click()
'**ACTION SUB WHEN USER CLICKS THERE IS A BILLING ERROR RATE CHANGE**'
    frmRateChange.Show
    Call InsertInfo
End Sub

Private Sub btnRRRateChange_Click()
'**ACTION SUB WHEN A USER CLICKS THERE IS A RATE REDUCTION RATE CHANGE**'
    frmRateChange.Show
    Call InsertInfo
End Sub

Private Sub btnSSRateChange_Click()
'**ACTION SUB WHEN A USER CLICKS THERE IS A SERVICE STANDARDIZATION RATE CHANGE**'
    frmRateChange.Show
    Call InsertInfo
End Sub

Private Sub btnVSRateChange_Click()
'**ACTION SUB WHEN A USER CLICKS THERE IS A VENDOR SWITCH RATE CHANGE**'
    frmRateChange.Show
    Call InsertInfo
End Sub

Private Sub InsertPicklists()
'**INSERT ALL THE DROPDOWN VALUES THAT WILL SHOW ACROSS THE FORM**'

Dim aCell As Range
Dim numRow As Integer
    
    'Insert Container Types into picklists'
    For Each aCell In Worksheets("Pick Lists").Range("B3:B9")
        txt1ContainType.AddItem (aCell.Value)
    Next
    
    'Insert types of waste into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("F3:F9")
        txt1TypeWaste.AddItem (aCell.Value)
    Next
    
    'Insert Measurements into the picklists'
    For Each aCell In Worksheets("Pick Lists").Range("D3:D5")
        txt1Mes.AddItem (aCell.Value)
    Next
    
    'Insert Contracts into the picklists'
    For Each aCell In Worksheets("Contract Data").Range("C10:C1000")
        If aCell.Value <> "" Then
            cmbContract1.AddItem (aCell.Value)
        End If
    Next

End Sub

Private Sub cmbContainers_Change()
'**ACTION SUB IF THE USER SELECTED OR CHANGED CONTAINERS **'
    Call InsertInfo
End Sub

Private Sub cmbLocations_Change()
'**ACTION SUB IF THE USER SELECTS OR CHANGES A LOCATION**'
    LocID = cmbLocations.Value
    Call InsertContainers
End Sub

Private Sub InsertContainers()
'**AFTER THE USER SELECTS THEIR LOCATION, POPULATE THE DROPDOWN OF CONTAINERS WITH CONTAINER IDS FROM THAT LOCATION**'
cmbContainers.Clear

On Error GoTo ErrorResume:
    'Insert Container 1'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 27, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 55, False))
    'Insert Container 2'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 79, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 107, False))
    'Insert Container 3'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 131, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 159, False))
    'Insert Container 4'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 183, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 211, False))
    'Insert Container 5'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 235, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 263, False))
    'Insert Container 6/ Compactor 1'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 287, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 321, False))
    'Insert Container 7/ Compactor 2'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 339, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 373, False))
    'Insert Container 8/ Compactor 3'
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 391, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 425, False))
    Exit Sub

ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertInfo()

'**ERROR CHECKING IN CASE SOMEONE DECIDES TO TYPE INSTEAD OF SELECT**'
On Error GoTo ErrorResume

    '**FIND OUT WHAT CONTAINER NUMBER WE HAVE SELECTED**
    '**INSERT CURRENT SERVICE, THEN IF WE ALREADY IMPLEMENTED INPUT THAT OTHERWISE AUTOINPUT THE LAST SERVICE ENTERED (SS, VS, RR, BC, CS)
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    txt1Vendor.Clear
    txtSiteNotes.Value = Worksheets("ASR").Range("QV" & rowNum).Value
    
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        containNum = 1
        Call InsertAchievedContainer1
        If Worksheets("ASR").Range("BVI" & rowNum).Value <> "" Then
            Call InsertCurrentSvcCont1
        Else:
            Call InsertContain1AutoInput
        End If
        
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        containNum = 2
        Call InsertAchievedContainer2
        If Worksheets("ASR").Range("BXJ" & rowNum).Value <> "" Then
            Call InsertCurrentSvcCont2
        Else:
            Call InsertContain2AutoInput
        End If
        
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        containNum = 3
        Call InsertAchievedContainer3
        If Worksheets("ASR").Range("BZM" & rowNum).Value <> "" Then
            Call InsertCurrentSvcCont3
        Else:
            Call InsertContain3AutoInput
        End If
        
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        containNum = 4
        Call InsertAchievedContainer4
        If Worksheets("ASR").Range("CBP" & rowNum).Value <> "" Then
            Call InsertCurrentSvcCont4
        Else:
            Call InsertContain4AutoInput
        End If
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        containNum = 5
        Call InsertAchievedContainer5
        If Worksheets("ASR").Range("CDS" & rowNum).Value <> "" Then
            Call InsertCurrentSvcCont5
        Else:
            Call InsertContain5AutoInput
        End If
        
        
    '**CONTAINERS 6-8 NOT FINISHED (COMPACTORS)**'
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        containNum = 6
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        containNum = 7
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        containNum = 8
    End If
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub chk1ImpRR_Click()
'Updates ASR on click of checkbox for Rate Reduction Implementation'
    If containNum = 1 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("BWQ" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BWQ" & rowNum).Value = "No"
        End If
    ElseIf containNum = 2 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("BYR" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BYR" & rowNum).Value = "No"
        End If
    ElseIf containNum = 3 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("CAU" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CAU" & rowNum).Value = "No"
        End If
    ElseIf containNum = 4 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("CCX" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CCX" & rowNum).Value = "No"
        End If
    ElseIf containNum = 5 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("CFA" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CFA" & rowNum).Value = "No"
        End If
    ElseIf containNum = 6 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("CHD" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CHD" & rowNum).Value = "No"
        End If
    ElseIf containNum = 7 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("CJG" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CJG" & rowNum).Value = "No"
        End If
    ElseIf containNum = 8 Then
        If chk1ImpRR.Value = True Then
            Worksheets("ASR").Range("CLJ" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CLJ" & rowNum).Value = "No"
        End If
    End If
End Sub

Private Sub chk1ImpVS_Click()
'Updates ASR on click of checkbox for Vendor Switch Implementation
    If containNum = 1 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("BWT" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BWT" & rowNum).Value = "No"
        End If
    ElseIf containNum = 2 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("BYU" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BYU" & rowNum).Value = "No"
        End If
    ElseIf containNum = 3 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("CAX" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CAX" & rowNum).Value = "No"
        End If
    ElseIf containNum = 4 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("CDA" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CDA" & rowNum).Value = "No"
        End If
    ElseIf containNum = 5 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("CFD" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CFD" & rowNum).Value = "No"
        End If
    ElseIf containNum = 6 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("CHG" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CHG" & rowNum).Value = "No"
        End If
    ElseIf containNum = 7 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("CJJ" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CJJ" & rowNum).Value = "No"
        End If
    ElseIf containNum = 8 Then
        If chk1ImpVS.Value = True Then
            Worksheets("ASR").Range("CLM" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CLM" & rowNum).Value = "No"
        End If
    End If
End Sub

Private Sub chk1ImpSS_Click()
'Updates ASR on click of checkbox for Service Standardization  Implementation
    If containNum = 1 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("BWV" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BWV" & rowNum).Value = "No"
        End If
    ElseIf containNum = 2 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("BYW" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BYW" & rowNum).Value = "No"
        End If
    ElseIf containNum = 3 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("CAZ" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CAZ" & rowNum).Value = "No"
        End If
    ElseIf containNum = 4 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("CDC" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CDC" & rowNum).Value = "No"
        End If
    ElseIf containNum = 5 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("CFF" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CFF" & rowNum).Value = "No"
        End If
    ElseIf containNum = 6 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("CHI" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CHI" & rowNum).Value = "No"
        End If
    ElseIf containNum = 7 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("CJL" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CJL" & rowNum).Value = "No"
        End If
    ElseIf containNum = 8 Then
        If chk1ImpSS.Value = True Then
            Worksheets("ASR").Range("CLO" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CLO" & rowNum).Value = "No"
        End If
    End If
End Sub

Private Sub chk1RateChange_Click()
    'Updates the ASR on the click of a rate change for current service
    If containNum = 1 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("BWO" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BWO" & rowNum).Value = "No"
        End If
    ElseIf containNum = 2 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("BYP" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("BYP" & rowNum).Value = "No"
        End If
    ElseIf containNum = 3 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("CAS" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CAS" & rowNum).Value = "No"
        End If
    ElseIf containNum = 4 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("CCV" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CCV" & rowNum).Value = "No"
        End If
    ElseIf containNum = 5 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("CEY" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CEY" & rowNum).Value = "No"
        End If
    ElseIf containNum = 6 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("CHG" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CHG" & rowNum).Value = "No"
        End If
    ElseIf containNum = 7 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("CJJ" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CJJ" & rowNum).Value = "No"
        End If
    ElseIf containNum = 8 Then
        If chk1RateChange.Value = True Then
            Worksheets("ASR").Range("CLM" & rowNum).Value = "Yes"
        Else:
            Worksheets("ASR").Range("CLM" & rowNum).Value = "No"
        End If
    End If
End Sub

Private Sub InsertAchievedContainer1()
    'Container 1 Current Spend'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 27, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 55, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 32, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 37, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 41, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 42, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 44, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 45, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 46, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 47, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 48, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 49, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 50, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 51, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 52, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 53, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 54, False), "Currency")
    txt1Amount.Value = Format(Worksheets("ASR").Range("BWP" & rowNum).Value, "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 27, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    If Worksheets("ASR").Range("BWO" & rowNum).Value = "Yes" Then
        chk1RateChange.Value = True
    Else: chk1RateChange.Value = False
    End If
    
    
    'Container 1 Billing Corrections'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 579, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 560, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 561, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 563, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 564, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 566, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 567, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 569, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 570, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 572, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 573, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 575, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 576, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 578, False), "Currency")
    txt2Amount = Worksheets("ASR").Range("BWR" & rowNum).Value
    'Rate Change
    If Worksheets("ASR").Range("BWR" & rowNum).Value <> "" Then
        chk2RateChange.Value = True
    Else:
        chk2RateChange.Value = False
    End If
    'Background and Visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 553, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(1).Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(1).Visible = False
    End If
    txt1BCAcceptNotes.Caption = Worksheets("ASR").Range("VJ" & rowNum).Value
    
    'Container 1 Rate Reductions'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 858, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 839, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 840, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 842, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 843, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 845, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 846, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 848, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 849, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 851, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 852, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 854, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 855, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 857, False), "Currency")
    txt3Amount = Worksheets("ASR").Range("BWS" & rowNum).Value
    'Rate Change
    If Worksheets("ASR").Range("BWS" & rowNum).Value <> "" Then
        chk3RateChange.Value = True
    Else:
        chk3RateChange.Value = False
    End If
    'Background and Visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 861, False) = "Accepted" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(2).Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(2).Visible = False
    End If
    'Implemented
    If Worksheets("ASR").Range("BWQ" & rowNum).Value = "Yes" Then
        chk1ImpRR.Value = True
    Else: chk1ImpRR.Value = False
    End If
    txt1RRAcceptNotes.Caption = Worksheets("ASR").Range("AGD" & rowNum).Value
    
    'Container 1 Vendor Switch'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1111, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1137, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1140, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1141, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1118, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1119, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1121, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1122, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1124, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1125, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1127, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1128, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1130, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1131, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1133, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1134, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1136, False), "Currency")
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1142, False) = "Accepted" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(3).Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(3).Visible = False

    End If
    If Worksheets("ASR").Range("BWT" & rowNum).Value = "Yes" Then
        chk1ImpVS.Value = True
    Else: chk1ImpVS.Value = False
    End If
    txt1VSAcceptNotes.Caption = Worksheets("ASR").Range("AQY" & rowNum).Value
    
    'Container 1 Service Standardization'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1416, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1419, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1397, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1398, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1400, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1401, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1403, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1404, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1406, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1407, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1409, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1410, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1412, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1413, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1415, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1421, False) = "Accepted" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(4).Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(4).Visible = False
    End If
    txt1SSAcceptNotes.Caption = Worksheets("ASR").Range("BBR" & rowNum).Value
    If Worksheets("ASR").Range("BWV" & rowNum).Value = "Yes" Then
        chk1ImpSS.Value = True
    Else: chk1ImpSS.Value = False
    End If

End Sub

Private Sub InsertCurrentSvcCont1()
Dim DaysofPickup As String
'Insert Current Service for Container 1'
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 27, False))
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1111, False))
    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1933, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1934, False)
    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1935, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1936, False)
    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1937, False)
    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1938, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1939, False)
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1942, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1943, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1944, False)
    
    txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1945, False)
    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1946, False), "Currency")
    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1947, False)
    txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1948, False)
    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1949, False), "Currency")
    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1950, False)
    txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1951, False)
    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1952, False), "Currency")
    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1953, False)
    txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1954, False)
    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1955, False), "Currency")
    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1956, False)
    txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1957, False)
    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1958, False), "Currency")
    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1959, False)
    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1960, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1978, False)
    txtOther1.Value = Worksheets("ASR").Range("BXA" & rowNum).Value
    txtContNotes.Value = Worksheets("ASR").Range("BXD" & rowNum).Value
     'Initialize days of pickup to all false'
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1941, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
            'if there is a other type of pickup, enable that checkbox'
            If InStr(DaysofPickup, "O") <> 0 Then
                chkOther1.Value = True
            Else: chkOther1.Value = False
            End If
    End If
    Call UpdateSavingsCont1
End Sub

Private Sub InsertAchievedContainer2()
    'Container 2 Current Spend'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 79, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 107, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 82, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 89, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 93, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 94, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 96, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 97, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 98, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 99, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 100, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 101, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 102, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 103, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 104, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 105, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 106, False), "Currency")
    txt1Amount.Value = Format(Worksheets("ASR").Range("BYQ" & rowNum).Value, "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 79, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    If Worksheets("ASR").Range("BYP" & rowNum).Value = "Yes" Then
        chk1RateChange.Value = True
    Else: chk1RateChange.Value = False
    End If

    
    'Container 2 Billing Corrections'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 612, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 593, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 594, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 596, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 597, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 599, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 600, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 602, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 603, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 605, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 606, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 608, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 609, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 611, False), "Currency")
    'Rate Change
    txt2Amount.Value = Worksheets("ASR").Range("BYS" & rowNum).Value
     If Worksheets("ASR").Range("BYS" & rowNum).Value <> "" Then
        chk2RateChange.Value = True
    Else: chk2RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 586, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(1).Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(1).Visible = False
    End If

    txt1BCAcceptNotes.Caption = Worksheets("ASR").Range("WQ" & rowNum).Value
    
    'Container 2 Rate Reductions'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 891, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 872, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 873, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 875, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 876, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 878, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 879, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 881, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 882, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 884, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 885, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 887, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 888, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 890, False), "Currency")
   'Rate Change
    txt3Amount.Value = Worksheets("ASR").Range("BYT" & rowNum).Value
     If Worksheets("ASR").Range("BYT" & rowNum).Value <> "" Then
        chk3RateChange.Value = True
    Else: chk3RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 894, False) = "Accepted" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(2).Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(2).Visible = False
    End If
    If Worksheets("ASR").Range("BYR" & rowNum).Value = "Yes" Then
        chk1ImpRR.Value = True
    Else: chk1ImpRR.Value = False
    End If
    txt1RRAcceptNotes.Caption = Worksheets("ASR").Range("AHK" & rowNum).Value
    
    'Container 2 Vendor Switch'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1144, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1170, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1173, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1174, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1151, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1152, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1154, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1155, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1157, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1158, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1160, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1161, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1163, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1164, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1166, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1167, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1169, False), "Currency")
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1175, False) = "Accepted" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(3).Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(3).Visible = False
    End If
    If Worksheets("ASR").Range("BYU" & rowNum).Value = "Yes" Then
        chk1ImpVS.Value = True
    Else: chk1ImpVS.Value = False
    End If
    txt1VSAcceptNotes.Caption = Worksheets("ASR").Range("ASF" & rowNum).Value
    
    'Container 2 Service Standardization'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1449, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1452, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1430, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1431, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1433, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1434, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1436, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1437, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1439, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1440, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1442, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1443, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1445, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1446, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1448, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1454, False) = "Accepted" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(4).Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(4).Visible = False
    End If
    txt1SSAcceptNotes.Caption = Worksheets("ASR").Range("BCY" & rowNum).Value
    If Worksheets("ASR").Range("BYW" & rowNum).Value = "Yes" Then
        chk1ImpSS.Value = True
    Else: chk1ImpSS.Value = False
    End If
End Sub

Private Sub InsertCurrentSvcCont2()

Dim DaysofPickup As String
'Insert Current Service for Container 2'
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 79, False))
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1144, False))
    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1986, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1987, False)
    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1988, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1989, False)
    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1990, False)
    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1991, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1992, False)
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1995, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1996, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1997, False)
    
    txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1998, False)
    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1999, False), "Currency")
    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2000, False)
    txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2001, False)
    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2002, False), "Currency")
    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2003, False)
    txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2004, False)
    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2005, False), "Currency")
    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2006, False)
    txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2007, False)
    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2008, False), "Currency")
    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2009, False)
    txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2010, False)
    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2011, False), "Currency")
    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2012, False)
    txt1CurrMonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2013, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2031, False)
    txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2030, False)
    txtContNotes.Value = Worksheets("ASR").Range("BZE" & rowNum).Value
     'Initialize days of pickup to all false'
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1994, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
            'if there is a other type of pickup, enable that checkbox'
            If InStr(DaysofPickup, "O") <> 0 Then
                chkOther1.Value = True
            Else: chkOther1.Value = False
            End If
    End If
    
    Call UpdateSavingsCont2
End Sub

Private Sub InsertAchievedContainer3()
    'Container 3 Current Spend'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 131, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 159, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 137, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 141, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 145, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 146, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 148, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 149, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 150, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 151, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 152, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 153, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 154, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 155, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 156, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 157, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 158, False), "Currency")
    txt1Amount.Value = Format(Worksheets("ASR").Range("CAT" & rowNum).Value, "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 131, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    'Rate Change
    If Worksheets("ASR").Range("CAS" & rowNum).Value = "Yes" Then
        chk1RateChange.Value = True
    Else: chk1RateChange.Value = False
    End If

    
    'Container 3 Billing Corrections'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 645, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 626, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 627, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 629, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 630, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 632, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 633, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 635, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 636, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 638, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 639, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 641, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 642, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 644, False), "Currency")
    'Rate Change
    txt2Amount.Value = Worksheets("ASR").Range("CAV" & rowNum).Value
     If Worksheets("ASR").Range("CAV" & rowNum).Value <> "" Then
        chk2RateChange.Value = True
    Else: chk2RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 619, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(1).Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(1).Visible = False
    End If
    txt1BCAcceptNotes.Caption = Worksheets("ASR").Range("XX" & rowNum).Value

    
    'Container 3 Rate Reductions'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 924, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 905, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 906, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 908, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 909, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 911, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 912, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 914, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 915, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 917, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 918, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 920, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 921, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 923, False), "Currency")
    'Rate Change
    txt3Amount.Value = Worksheets("ASR").Range("CAW" & rowNum).Value
     If Worksheets("ASR").Range("CAW" & rowNum).Value <> "" Then
        chk3RateChange.Value = True
    Else: chk3RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 927, False) = "Accepted" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(2).Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(2).Visible = False
    End If
    If Worksheets("ASR").Range("CAU" & rowNum).Value = "Yes" Then
        chk1ImpRR.Value = True
    Else: chk1ImpRR.Value = False
    End If
    txt1RRAcceptNotes.Caption = Worksheets("ASR").Range("AIR" & rowNum).Value
    
    'Container 3 Vendor Switch'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1177, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1203, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1206, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1207, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1184, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1185, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1187, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1188, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1190, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1191, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1193, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1194, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1196, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1197, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1199, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1200, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1202, False), "Currency")
     'if status = accepted
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1208, False) = "Accepted" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(3).Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(3).Visible = False
    End If
    If Worksheets("ASR").Range("CAX" & rowNum).Value = "Yes" Then chk1ImpVS.Value = True
    txt1VSAcceptNotes.Caption = Worksheets("ASR").Range("ATM" & rowNum).Value
    
    'Container 3 Service Standardization'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1482, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1485, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1463, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1464, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1466, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1467, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1469, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1470, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1472, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1473, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1475, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1476, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1478, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1479, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1481, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1487, False) = "Accepted" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(4).Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(4).Visible = False
    End If
    txt1SSAcceptNotes.Caption = Worksheets("ASR").Range("BEF" & rowNum).Value
        If Worksheets("ASR").Range("CAZ" & rowNum).Value = "Yes" Then
        chk1ImpSS.Value = True
    Else: chk1ImpSS.Value = False
    End If

End Sub

Private Sub InsertCurrentSvcCont3()

Dim DaysofPickup As String
'Insert Current Service for Container 3'
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 131, False))
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1177, False))
    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2041, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2042, False)
    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2043, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2044, False)
    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2045, False)
    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2046, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2047, False)
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2050, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2051, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2052, False)
    
    txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2053, False)
    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2054, False), "Currency")
    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2055, False)
    txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2056, False)
    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2057, False), "Currency")
    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2058, False)
    txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2059, False)
    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2060, False), "Currency")
    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2061, False)
    txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2062, False)
    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2063, False), "Currency")
    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2064, False)
    txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2065, False)
    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2066, False), "Currency")
    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2067, False)
    txt1CurrMonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2068, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2086, False)
    txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2085, False)
    txtContNotes.Value = Worksheets("ASR").Range("CBH" & rowNum).Value
     'Initialize days of pickup to all false'
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 2049, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
            'if there is a other type of pickup, enable that checkbox'
            If InStr(DaysofPickup, "O") <> 0 Then
                chkOther1.Value = True
            Else: chkOther1.Value = False
            End If
    End If
    
    Call UpdateSavingsCont3
End Sub

Private Sub InsertAchievedContainer4()
    'Container 4 Current Spend'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 183, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 211, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 189, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 193, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 197, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 198, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 200, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 201, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 202, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 203, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 204, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 205, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 206, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 207, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 208, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 209, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 210, False), "Currency")
    txt1Amount.Value = Format(Worksheets("ASR").Range("CCW" & rowNum).Value, "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 183, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    'Rate Change
    If Worksheets("ASR").Range("CCV" & rowNum).Value = "Yes" Then
        chk1RateChange.Value = True
    Else: chk1RateChange.Value = False
    End If

    
    'Container 4 Billing Corrections'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 678, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 659, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 660, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 662, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 663, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 665, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 666, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 668, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 669, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 671, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 672, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 674, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 675, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 677, False), "Currency")
    'Rate Change
    txt2Amount.Value = Worksheets("ASR").Range("CCY" & rowNum).Value
     If Worksheets("ASR").Range("CCY" & rowNum).Value <> "" Then
        chk2RateChange.Value = True
    Else: chk2RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 652, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(1).Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(1).Visible = False
    End If
    txt1BCAcceptNotes.Caption = Worksheets("ASR").Range("ZE" & rowNum).Value
    
    'Container 4 Rate Reductions'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 957, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 938, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 939, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 941, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 942, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 944, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 945, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 947, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 948, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 950, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 951, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 953, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 954, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 956, False), "Currency")
    'Rate Change
    txt3Amount.Value = Worksheets("ASR").Range("CCZ" & rowNum).Value
     If Worksheets("ASR").Range("CCZ" & rowNum).Value <> "" Then
        chk3RateChange.Value = True
    Else: chk3RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 960, False) = "Accepted" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(2).Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(2).Visible = False
    End If
    If Worksheets("ASR").Range("CCX" & rowNum).Value = "Yes" Then
        chk1ImpRR.Value = True
    Else: chk1ImpRR.Value = False
    End If
    txt1RRAcceptNotes.Caption = Worksheets("ASR").Range("AJY" & rowNum).Value
    
    'Container 4 Vendor Switch'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1210, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1236, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1239, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1240, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1217, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1218, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1220, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1221, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1223, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1224, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1226, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1227, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1229, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1230, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1232, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1233, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1235, False), "Currency")
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1241, False) = "Accepted" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(3).Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(3).Visible = False
    End If
    If Worksheets("ASR").Range("CDA" & rowNum).Value = "Yes" Then
        chk1ImpVS.Value = True
    Else: chk1ImpVS.Value = False
    End If
    txt1VSAcceptNotes.Caption = Worksheets("ASR").Range("AUT" & rowNum).Value
    
    'Container 4 Service Standardization'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1515, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1518, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1496, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1497, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1499, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1500, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1502, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1503, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1505, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1506, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1508, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1509, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1511, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1512, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1514, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1520, False) = "Accepted" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(4).Visible = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(4).Visible = False
    End If
    txt1SSAcceptNotes.Caption = Worksheets("ASR").Range("BFM" & rowNum).Value
    If Worksheets("ASR").Range("CDC" & rowNum).Value = "Yes" Then
        chk1ImpSS.Value = True
    Else: chk1ImpSS.Value = False
    End If

End Sub

Private Sub InsertCurrentSvcCont4()

Dim DaysofPickup As String
'Insert Current Service for Container 4'
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 183, False))
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1210, False))
    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2096, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2097, False)
    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2098, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2099, False)
    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2100, False)
    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2101, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2102, False)
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2105, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2106, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2107, False)
    
    txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2108, False)
    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2109, False), "Currency")
    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2110, False)
    txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2111, False)
    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2112, False), "Currency")
    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2113, False)
    txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2114, False)
    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2115, False), "Currency")
    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2116, False)
    txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2117, False)
    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2118, False), "Currency")
    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2119, False)
    txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2120, False)
    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2121, False), "Currency")
    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2122, False)
    txt1CurrMonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2123, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2141, False)
    txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2140, False)
    txtContNotes.Value = Worksheets("ASR").Range("CDK" & rowNum).Value
     'Initialize days of pickup to all false'
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 2104, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
            'if there is a other type of pickup, enable that checkbox'
            If InStr(DaysofPickup, "O") <> 0 Then
                chkOther1.Value = True
            Else: chkOther1.Value = False
            End If
    End If
    
    Call UpdateSavingsCont4
End Sub

Private Sub InsertAchievedContainer5()
    'Container 5 Current Spend'
    txt1Vendor1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 235, False)
    txt1Service1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 263, False)
    txt1ContainerType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 241, False)
    txt1DaysWeek1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 245, False)
    txt1BaseFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 249, False), "Currency")
    txt1FuelFee1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 250, False), "Currency")
    txt1FeeType1.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 252, False)
    txt1FeePrice1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 253, False), "Currency")
    txt1FeeType2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 254, False)
    txt1FeePrice2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 255, False), "Currency")
    txt1FeeType3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 256, False)
    txt1FeePrice3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 257, False), "Currency")
    txt1FeeType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 258, False)
    txt1FeePrice4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 259, False), "Currency")
    txt1FeeType5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 260, False)
    txt1FeePrice5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 261, False), "Currency")
    txt1MonSpend1.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 262, False), "Currency")
    txt1Amount.Value = Format(Worksheets("ASR").Range("CEZ" & rowNum).Value, "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 235, False) <> "" Then
        lblCurrentSpnd1.BackStyle = fmBackStyleOpaque
    Else: lblCurrentSpnd1.BackStyle = fmBackStyleTransparent
    End If
    'Rate Change
    If Worksheets("ASR").Range("CEY" & rowNum).Value = "Yes" Then
        chk1RateChange.Value = True
    Else: chk1RateChange.Value = False
    End If

    'Container 5 Billing Corrections'
    txt1Service2.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 711, False)
    txt1BaseFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 692, False), "Currency")
    txt1FuelFee2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 693, False), "Currency")
    txt1FeeType6.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 695, False)
    txt1FeePrice6.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 696, False), "Currency")
    txt1FeeType7.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 698, False)
    txt1FeePrice7.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 699, False), "Currency")
    txt1FeeType8.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 701, False)
    txt1FeePrice8.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 702, False), "Currency")
    txt1FeeType9.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 704, False)
    txt1FeePrice9.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 705, False), "Currency")
    txt1FeeType10.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 707, False)
    txt1FeePrice10.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 708, False), "Currency")
    txt1MonSpend2.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 710, False), "Currency")
    'Rate Change
    txt2Amount.Value = Worksheets("ASR").Range("CFB" & rowNum).Value
     If Worksheets("ASR").Range("CFB" & rowNum).Value <> "" Then
        chk2RateChange.Value = True
    Else: chk2RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 685, False) <> "" Then
        lblBillCorrection1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(1).Visible = True
    Else: lblBillCorrection1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(1).Visible = False
    End If
    txt1BCAcceptNotes.Caption = Worksheets("ASR").Range("AAL" & rowNum).Value
    
    'Container 5 Rate Reductions'
    txt1Service3.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 990, False)
    txt1BaseFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 971, False), "Currency")
    txt1FuelFee3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 972, False), "Currency")
    txt1FeeType11.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 974, False)
    txt1FeePrice11.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 975, False), "Currency")
    txt1FeeType12.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 977, False)
    txt1FeePrice12.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 978, False), "Currency")
    txt1FeeType13.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 980, False)
    txt1FeePrice13.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 981, False), "Currency")
    txt1FeeType14.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 983, False)
    txt1FeePrice14.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 984, False), "Currency")
    txt1FeeType15.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 986, False)
    txt1FeePrice15.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 987, False), "Currency")
    txt1MonSpend3.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 989, False), "Currency")
    'Rate Change
    txt2Amount.Value = Worksheets("ASR").Range("CFC" & rowNum).Value
     If Worksheets("ASR").Range("CFC" & rowNum).Value <> "" Then
        chk2RateChange.Value = True
    Else: chk2RateChange.Value = False
    End If
    'Background and visibility
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 993, False) = "Accepted" Then
        lblRateReduction1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(2).Visible = True
    Else: lblRateReduction1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(2).Visible = False
    End If
    If Worksheets("ASR").Range("CFA" & rowNum).Value = "Yes" Then
        chk1ImpRR.Value = True
    Else: chk1ImpRR.Value = False
    End If
    txt1RRAcceptNotes.Caption = Worksheets("ASR").Range("ALF" & rowNum).Value
    
    'Container 5 Vendor Switch'
     txt1Vendor4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1243, False)
     txt1Service4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1269, False)
     txt1ContainerType4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1272, False)
     txt1DaysWeek4.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1273, False)
     txt1BaseFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1250, False), "Currency")
     txt1FuelFee4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1251, False), "Currency")
     txt1FeeType16.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1253, False)
     txt1FeePrice16.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1254, False), "Currency")
     txt1FeeType17.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1256, False)
     txt1FeePrice17.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1257, False), "Currency")
     txt1FeeType18.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1259, False)
     txt1FeePrice18.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1260, False), "Currency")
     txt1FeeType19.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1262, False)
     txt1FeePrice19.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1263, False), "Currency")
     txt1FeeType20.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1265, False)
     txt1FeePrice20.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1266, False), "Currency")
     txt1MonSpend4.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1268, False), "Currency")
     If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1274, False) = "Accepted" Then
        lblVendorSwitch1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(3).Visible = True
    Else: lblVendorSwitch1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(3).Visible = False
    End If
    If Worksheets("ASR").Range("CFD" & rowNum).Value = "Yes" Then
        chk1ImpVS.Value = True
    Else: chk1ImpVS.Value = False
    End If
    txt1VSAcceptNotes.Caption = Worksheets("ASR").Range("AWA" & rowNum).Value
    
    'Container 5 Service Standardization'
    txt1Service5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1548, False)
    txt1DaysWeek5.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1551, False)
    txt1BaseFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1529, False), "Currency")
    txt1FuelFee5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1530, False), "Currency")
    txt1FeeType21.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1532, False)
    txt1FeePrice21.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1533, False), "Currency")
    txt1FeeType22.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1535, False)
    txt1FeePrice22.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1536, False), "Currency")
    txt1FeeType23.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1538, False)
    txt1FeePrice23.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1539, False), "Currency")
    txt1FeeType24.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1541, False)
    txt1FeePrice24.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1542, False), "Currency")
    txt1FeeType25.Caption = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1544, False)
    txt1FeePrice25.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1545, False), "Currency")
    txt1MonSpend5.Caption = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1547, False), "Currency")
    If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:BKT1099"), 1553, False) = "Accepted" Then
        lblSvcStandardization1.BackStyle = fmBackStyleOpaque
        multipgSpends.Pages(4).Visble = True
    Else: lblSvcStandardization1.BackStyle = fmBackStyleTransparent
        multipgSpends.Pages(4).Visible = False
    End If
    txt1SSAcceptNotes.Caption = Worksheets("ASR").Range("BGT" & rowNum).Value
    If Worksheets("ASR").Range("CFF" & rowNum).Value = "Yes" Then
        chk1ImpSS.Value = True
    Else: chk1ImpSS.Value = False
    End If

End Sub

Private Sub InsertCurrentSvcCont5()

Dim DaysofPickup As String
'Insert Current Service for Container 5'
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 235, False))
    txt1Vendor.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1243, False))
    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2151, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2152, False)
    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2153, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2154, False)
    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2155, False)
    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2156, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2157, False)
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2160, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2161, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2162, False)
    
    txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2163, False)
    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2164, False), "Currency")
    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2165, False)
    txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2166, False)
    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2167, False), "Currency")
    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2168, False)
    txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2169, False)
    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2170, False), "Currency")
    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2171, False)
    txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2172, False)
    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2173, False), "Currency")
    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2174, False)
    txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2175, False)
    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2176, False), "Currency")
    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2177, False)
    txt1CurrMonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2178, False), "Currency")
    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2196, False)
    txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 2195, False)
    txtContNotes.Value = Worksheets("ASR").Range("CFN" & rowNum).Value
     'Initialize days of pickup to all false'
    chkMon1.Value = False
    chkTues1.Value = False
    chkWed1.Value = False
    chkThurs1.Value = False
    chkFri1.Value = False
    chkSat1.Value = False
    chkSun1.Value = False
    chkOnCall1.Value = False
     DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 2159, False)
    If DaysofPickup <> "" Then
        'if there is a monday pickup, enable that checkbox'
            If InStr(DaysofPickup, "M") <> 0 Then
                chkMon1.Value = True
            Else: chkMon1.Value = False
            End If
        'if there is a tuesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "T") <> 0 Then
                chkTues1.Value = True
            Else: chkTues1.Value = False
            End If
        'if there is a wednesday pickup, enable that checkbox'
            If InStr(DaysofPickup, "W") <> 0 Then
                chkWed1.Value = True
            Else: chkWed1.Value = False
            End If
        'if there is a thursday pickup, enable that checkbox'
            If InStr(DaysofPickup, "R") <> 0 Then
                chkThurs1.Value = True
            Else: chkThurs1.Value = False
            End If
        'if there is a friday pickup, enable that checkbox'
            If InStr(DaysofPickup, "F") <> 0 Then
                chkFri1.Value = True
            Else: chkFri1.Value = False
            End If
        'if there is a saturday pickup, enable that checkbox'
                If InStr(DaysofPickup, "S") <> 0 Then
                chkSat1.Value = True
            Else: chkSat1.Value = False
            End If
        'if there is a sunday pickup, enable that checkbox'
            If InStr(DaysofPickup, "N") <> 0 Then
                chkSun1.Value = True
            Else: chkSun1.Value = False
            End If
        'if there is a oncall pickup, enable that checkbox'
            If InStr(DaysofPickup, "C") <> 0 Then
                chkOnCall1.Value = True
            Else: chkOnCall1.Value = False
            End If
            'if there is a other type of pickup, enable that checkbox'
            If InStr(DaysofPickup, "O") <> 0 Then
                chkOther1.Value = True
            Else: chkOther1.Value = False
            End If
    End If
    
    Call UpdateSavingsCont5
End Sub

Private Sub InsertContain1AutoInput()
    Dim Acceptance As String
    Dim DaysofPickup As String
    Acceptance = Worksheets("ASR").Range("BBQ" & rowNum).Value
    Select Case Acceptance
    
    Case Is <> "Accepted", Is <> "Partial" 'Service Standardization accepted or partial - autopopulate to implemented service'
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1390, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1391, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1394, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1392, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1393, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1418, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1395, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1397, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1398, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1399, False)
        
        txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1400, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1401, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1402, False)
        txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1403, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1404, False), "Currency")
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1405, False)
        txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1406, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1407, False), "Currency")
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1408, False)
        txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1409, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1410, False), "Currency")
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1411, False)
        txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1412, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1413, False), "Currency")
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1414, False)
        txt1CurrMonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1415, False), "Currency")
        cmbContract1.Value = ""
        txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1420, False)
        txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1422, False)
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1419, False)
    
    Case Else 'Vendor Switch accepted or partial - autopopulate to implemented service'
        Acceptance = Worksheets("ASR").Range("AQX" & rowNum).Value
        Select Case Acceptance
        
        Case Is <> "Accepted", Is <> "Partial"
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1111, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1112, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1115, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1113, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1114, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1140, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1116, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1118, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1119, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1120, False)
            
            txt1CurrFeeType1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1121, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1122, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1123, False)
            txt1CurrFeeType2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1124, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1125, False), "Currency")
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1126, False)
            txt1CurrFeeType3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1127, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1128, False), "Currency")
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1129, False)
            txt1CurrFeeType4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1130, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1131, False), "Currency")
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1132, False)
            txt1CurrFeeType5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1133, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1134, False), "Currency")
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1135, False)
            txt1CurrMonSpend = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1136, False), "Currency")
            cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1138, False)
            txtOther1.Value = ""
            txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1143, False)
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1141, False)
        
        Case Else 'Rate Reduction accepted or partial - autopopulate to implemented service'
            Acceptance = Worksheets("ASR").Range("AEZ" & rowNum).Value
            Select Case Acceptance
            
            Case Is <> "Accepted", Is <> "Partial"
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 832, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 833, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 836, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 834, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 835, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 32, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 837, False)
                txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 839, False), "Currency")
                txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 840, False), "Currency")
                txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 841, False)
                txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 842, False)
                txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 843, False), "Currency")
                txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 845, False)
                txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 846, False), "Currency")
                txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 848, False)
                txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 849, False), "Currency")
                txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 851, False)
                txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 852, False), "Currency")
                txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 854, False)
                txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 855, False), "Currency")
                txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 844, False)
                txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 847, False)
                txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 850, False)
                txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 853, False)
                txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 856, False)
                txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 857, False), "Currency")
                cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 860, False)
                txtOther1.Value = ""
                txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 862, False)
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 37, False)
                
            Case Else 'Billing Correction accepted or partial - autopopulate to implemented service'
                Acceptance = Worksheets("ASR").Range("VI" & rowNum).Value
                Select Case Acceptance
                Case Is <> "Accepted", Is <> "Partial"
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 553, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 554, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 557, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 555, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 556, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 32, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 558, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 560, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 561, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 562, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 563, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 564, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 566, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 567, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 569, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 570, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 572, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 573, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 575, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 576, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 565, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 568, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 571, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 574, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 577, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 578, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 57, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 582, False)
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 37, False)
                
                Case Else 'Current Service - autopopulate to implemented service'
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 27, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 29, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 33, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 30, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 31, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 32, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 34, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 41, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 42, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 43, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 44, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 45, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 46, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 47, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 48, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 49, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 50, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 51, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 52, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 53, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 58, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 59, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 60, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 61, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 62, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 57, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = ""
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 37, False)
                End Select
            End Select
        End Select
    End Select
End Sub

Private Sub InsertContain2AutoInput()
    'Insert Container 2 information from the ASR'
    Dim Acceptance As String
    Dim DaysofPickup As String
    
    Acceptance = Worksheets("ASR").Range("BCX" & rowNum).Value
    Select Case Acceptance
    Case Is <> "Accepted", Is <> "Partial" 'Service Standardization accepted or partial - autopopulate to implemented service'
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1390, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1391, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1394, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1392, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1393, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1418, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1395, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1397, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1398, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1399, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1400, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1401, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1403, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1404, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1406, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1407, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1409, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1410, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1412, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1413, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1402, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1405, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1408, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1411, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1414, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1415, False), "Currency")
        cmbContract1.Value = ""
        txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1420, False)
        txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1422, False)
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1419, False)

    Case Else 'Vendor Switch accepted or partial - autopopulate to implemented service'
        Acceptance = Worksheets("ASR").Range("ASE" & rowNum).Value
        Select Case Acceptance
        
        Case Is <> "Accepted", Is <> "Partial"
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1144, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1145, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1148, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1146, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1147, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1173, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1149, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1151, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1152, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1153, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1154, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1155, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1157, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1158, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1160, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1161, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1163, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1164, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1166, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1167, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1156, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1159, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1162, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1165, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1168, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1169, False), "Currency")
            cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1172, False)
            txtOther1.Value = ""
            txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1176, False)
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1174, False)
        
        Case Else 'Rate Reduction accepted or partial - autopopulate to implemented service'
            Acceptance = Worksheets("ASR").Range("AHJ" & rowNum).Value
            Select Case Acceptance
            
            Case Is <> "Accepted", Is <> "Partial"
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 865, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 866, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 869, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 867, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 868, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 85, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 870, False)
                txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 872, False), "Currency")
                txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 873, False), "Currency")
                txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 874, False)
                txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 875, False)
                txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 876, False), "Currency")
                txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 878, False)
                txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 879, False), "Currency")
                txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 881, False)
                txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 882, False), "Currency")
                txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 884, False)
                txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 885, False), "Currency")
                txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 887, False)
                txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 888, False), "Currency")
                txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 877, False)
                txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 880, False)
                txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 883, False)
                txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 886, False)
                txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 889, False)
                txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 890, False), "Currency")
                cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 893, False)
                txtOther1.Value = ""
                txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 895, False)
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 89, False)
            
            Case Else 'Billing Correction accepted or partial - autopopulate to implemented service'
                Acceptance = Worksheets("ASR").Range("WP" & rowNum).Value
                Select Case Acceptance
                 
                Case Is <> "Accepted", Is <> "Partial"
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 586, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 587, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 590, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 588, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 589, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 85, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 591, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 593, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 594, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 595, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 596, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 597, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 599, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 600, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 602, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 603, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 605, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 606, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 608, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 609, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 598, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 601, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 604, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 607, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 610, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 611, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 109, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 615, False)
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 89, False)
                
                Case Else 'Current Service - autopopulate implemented service'
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 79, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 82, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 81, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 83, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 84, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 85, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 86, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 93, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 94, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 95, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 96, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 97, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 98, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 99, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 100, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 101, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 102, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 103, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 104, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 105, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 110, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 111, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 112, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 113, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 114, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 109, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = ""
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 89, False)
                End Select
            End Select
        End Select
    End Select
End Sub

Private Sub InsertContain3AutoInput()
'Insert Current Spend from Container 3'
    Dim Acceptance As String
    Dim DaysofPickup As String
    
    Acceptance = Worksheets("ASR").Range("BEE" & rowNum).Value
    Select Case Acceptance
    Case Is <> "Accepted", Is <> "Partial" 'Service Standardization accepted or partial - autopopulate to implemented service'
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1456, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1457, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1460, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1458, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1459, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1484, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1461, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1463, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1464, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1465, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1466, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1467, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1469, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1470, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1472, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1473, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1475, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1476, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1478, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1479, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1468, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1471, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1474, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1477, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1480, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1481, False), "Currency")
        cmbContract1.Value = ""
        txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1486, False)
        txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1488, False)
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1485, False)

    Case Else 'Vendor Switch accepted or partial - autopopulate to implemented service'
        Acceptance = Worksheets("ASR").Range("ATL" & rowNum).Value
        Select Case Acceptance
        
        Case Is <> "Accepted", Is <> "Partial"
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1177, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1178, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1181, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1179, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1180, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1206, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1182, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1184, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1185, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1186, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1187, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1188, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1190, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1191, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1193, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1194, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1196, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1197, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1199, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1200, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1189, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1192, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1195, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1198, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1201, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1202, False), "Currency")
            cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1205, False)
            txtOther1.Value = ""
            txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1209, False)
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1207, False)
        
        Case Else 'Rate Reduction accepted or partial - autopopulate to implemented service'
            Acceptance = Worksheets("ASR").Range("AIQ" & rowNum).Value
            Select Case Acceptance
            
            Case Is <> "Accepted", Is <> "Partial"
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 898, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 899, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 902, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 900, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 901, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 137, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 903, False)
                txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 905, False), "Currency")
                txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 906, False), "Currency")
                txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 907, False)
                txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 908, False)
                txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 909, False), "Currency")
                txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 911, False)
                txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 912, False), "Currency")
                txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 914, False)
                txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 915, False), "Currency")
                txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 917, False)
                txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 918, False), "Currency")
                txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 920, False)
                txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 921, False), "Currency")
                txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 910, False)
                txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 913, False)
                txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 916, False)
                txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 919, False)
                txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 922, False)
                txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 923, False), "Currency")
                cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 926, False)
                txtOther1.Value = ""
                txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 928, False)
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 141, False)
                
            Case Else 'Billing Correction accepted or partial - autopopulate to implemented service'
                Acceptance = Worksheets("ASR").Range("XW" & rowNum).Value
                Select Case Acceptance
                 
                Case Is <> "Accepted", Is <> "Partial"
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 619, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 620, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 623, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 621, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 622, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 137, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 624, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 626, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 627, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 628, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 629, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 630, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 632, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 633, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 635, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 636, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 638, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 639, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 641, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 642, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 631, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 634, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 637, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 640, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 643, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 644, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 161, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 648, False)
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 141, False)
                    
                Case Else   'Current spend - autopopulate to implemented service.
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 131, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 134, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 133, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 135, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 136, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 137, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 138, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 145, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 146, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 147, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 148, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 149, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 150, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 151, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 152, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 153, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 154, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 155, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 156, False)
                    txt1CurrFeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 157, False)
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 162, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 163, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 164, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 165, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 166, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 161, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = ""
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 141, False)
                End Select
            End Select
        End Select
    End Select
End Sub

Private Sub InsertContain4AutoInput()
'Insert Container 4 information from the ASR'
    Dim Acceptance As String
    Dim DaysofPickup As String
    
    Acceptance = Worksheets("ASR").Range("BFL" & rowNum).Value
    Select Case Acceptance
    Case Is <> "Accepted", Is <> "Partial" 'Service Standardization accepted or partial - autopopulate to implemented service'
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1489, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1490, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1493, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1491, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1492, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1517, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1494, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1496, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1497, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1498, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1499, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1500, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1502, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1503, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1505, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1506, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1508, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1509, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1511, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1512, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1501, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1504, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1507, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1510, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1513, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1514, False), "Currency")
        cmbContract1.Value = ""
        txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1519, False)
        txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1521, False)
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1518, False)

    Case Else 'Vendor Switch accepted or partial - autopopulate to implemented service'
        Acceptance = Worksheets("ASR").Range("AUS" & rowNum).Value
        Select Case Acceptance
        
        Case Is <> "Accepted", Is <> "Partial"
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1210, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1211, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1214, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1212, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1213, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1239, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1215, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1217, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1218, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1219, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1220, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1221, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1223, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1224, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1226, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1227, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1229, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1230, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1232, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1233, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1222, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1225, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1228, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1231, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1234, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1235, False), "Currency")
            cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1238, False)
            txtOther1.Value = ""
            txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1242, False)
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1240, False)
        
        Case Else 'Rate Reduction accepted or partial - autopopulate to implemented service'
            Acceptance = Worksheets("ASR").Range("AJX" & rowNum).Value
            Select Case Acceptance
            
            Case Is <> "Accepted", Is <> "Partial"
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 931, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 932, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 935, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 933, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 934, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 189, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 936, False)
                txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 938, False), "Currency")
                txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 939, False), "Currency")
                txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 940, False)
                txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 941, False)
                txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 942, False), "Currency")
                txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 944, False)
                txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 945, False), "Currency")
                txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 947, False)
                txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 948, False), "Currency")
                txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 950, False)
                txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 951, False), "Currency")
                txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 953, False)
                txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 954, False), "Currency")
                txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 943, False)
                txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 946, False)
                txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 949, False)
                txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 952, False)
                txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 955, False)
                txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 956, False), "Currency")
                cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 959, False)
                txtOther1.Value = ""
                txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 961, False)
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 193, False)
            
            Case Else 'Billing Correction accepted or partial - autopopulate to implemented service'
                Acceptance = Worksheets("ASR").Range("ZD" & rowNum).Value
                Select Case Acceptance
                Case Is <> "Accepted", Is <> "Partial"
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 652, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 653, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 656, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 654, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 655, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 189, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 657, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 659, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 660, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 661, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 662, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 663, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 665, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 666, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 668, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 669, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 671, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 672, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 674, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 675, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 664, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 667, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 670, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 673, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 676, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 677, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 213, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 681, False)
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 193, False)
                
                Case Else    'Current Spend - autopopulate to implemented service.'
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 183, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 186, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 185, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 187, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 188, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 189, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 190, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 197, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 198, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 199, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 200, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 201, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 202, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 203, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 204, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 205, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 206, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 207, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 208, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 209, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 214, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 215, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 216, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 217, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 218, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 213, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = ""
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 193, False)
                End Select
            End Select
        End Select
    End Select
End Sub

Private Sub InsertContain5AutoInput()
'Insert Container 5 information from the ASR'
    Dim Acceptance As String
    Dim DaysofPickup As String
    
    Acceptance = Worksheets("ASR").Range("BGS" & rowNum).Value
    Select Case Acceptance
    Case Is <> "Accepted", Is <> "Partial" 'Service Standardization accepted or partial - autopopulate to implemented service'
        txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1522, False)
        txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1523, False)
        txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1526, False)
        txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1524, False)
        txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1525, False)
        txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1550, False)
        txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1527, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1529, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1530, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1531, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1532, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1533, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1535, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1536, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1538, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1539, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1541, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1542, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1544, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1545, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1534, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1537, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1540, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1543, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1546, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1547, False), "Currency")
        cmbContract1.Value = ""
        txtOther1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1552, False)
        txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1553, False)
        DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1551, False)

    Case Else 'Vendor Switch accepted or partial - autopopulate to implemented service'
        Acceptance = Worksheets("ASR").Range("AVZ" & rowNum).Value
        Select Case Acceptance
        
        Case Is <> "Accepted", Is <> "Partial"
            txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1243, False)
            txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1244, False)
            txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1247, False)
            txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1245, False)
            txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1246, False)
            txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1272, False)
            txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1248, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1250, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1251, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1252, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1253, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1254, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1256, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1257, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1259, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1260, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1262, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1263, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1265, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1266, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1255, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1258, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1261, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1264, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1267, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1268, False), "Currency")
            cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1271, False)
            txtOther1.Value = ""
            txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1275, False)
            DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 1273, False)
        
        Case Else 'Rate Reduction accepted or partial - autopopulate to implemented service'
            Acceptance = Worksheets("ASR").Range("ALE" & rowNum).Value
            Select Case Acceptance
            
            Case Is <> "Accepted", Is <> "Partial"
                txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 964, False)
                txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 965, False)
                txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 968, False)
                txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 966, False)
                txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 967, False)
                txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 241, False)
                txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 969, False)
                txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 971, False), "Currency")
                txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 972, False), "Currency")
                txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 973, False)
                txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 974, False)
                txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 975, False), "Currency")
                txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 977, False)
                txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 978, False), "Currency")
                txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 980, False)
                txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 981, False), "Currency")
                txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 983, False)
                txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 984, False), "Currency")
                txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 986, False)
                txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 987, False), "Currency")
                txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 976, False)
                txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 979, False)
                txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 982, False)
                txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 985, False)
                txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 988, False)
                txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 989, False), "Currency")
                cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 992, False)
                txtOther1.Value = ""
                txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 994, False)
                DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 245, False)
                
            Case Else 'Billing Correction accepted or partial - autopopulate to implemented service'
                Acceptance = Worksheets("ASR").Range("AAK" & rowNum).Value
                Select Case Acceptance
                Case Is <> "Accepted", Is <> "Partial"
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 685, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 686, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 689, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 687, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 688, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 241, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 690, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 692, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 693, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 694, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 695, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 696, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 698, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 699, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 701, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 702, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 704, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 705, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 707, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 708, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 697, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 700, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 703, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 706, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 709, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 710, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 265, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 714, False)
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 245, False)
                    
                Case Else   'Current Spend - autopopulate to implemented service.'
                    txt1Vendor.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 235, False)
                    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 238, False)
                    txt1TypeWaste.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 237, False)
                    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 239, False)
                    txt1Mes.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 240, False)
                    txt1ContainType.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 241, False)
                    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 242, False)
                    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 249, False), "Currency")
                    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 250, False), "Currency")
                    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 251, False)
                    txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 252, False)
                    txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 253, False), "Currency")
                    txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 254, False)
                    txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 255, False), "Currency")
                    txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 256, False)
                    txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 257, False), "Currency")
                    txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 258, False)
                    txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 259, False), "Currency")
                    txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 260, False)
                    txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 261, False), "Currency")
                    txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 266, False)
                    txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 267, False)
                    txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 268, False)
                    txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 269, False)
                    txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 270, False)
                    txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False), "Currency")
                    cmbContract1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 265, False)
                    txtOther1.Value = ""
                    txtContNotes.Value = ""
                    DaysofPickup = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG100"), 245, False)
                End Select
            End Select
        End Select
    End Select
End Sub

Private Sub InsertContain6AutoInput()
'Insert Container 6 information from the ASR'

    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("ALI" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1026, False)
        txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1027, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1004, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1005, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1006, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1007, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1008, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1010, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1011, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1013, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1014, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1016, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1017, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1019, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1020, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1009, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1012, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1015, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1018, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1021, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1022, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("AAP" & rowNum).Value
        Select Case Vendor
        Case ""
            txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 300, False)
            txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 301, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 307, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 308, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 309, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 310, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 311, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 312, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 313, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 314, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 315, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 316, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 317, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 318, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 319, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 324, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 325, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 326, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 327, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 328, False)
           txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False), "Currency")
        Case Else
            txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 746, False)
            txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 747, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 725, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 726, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 727, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 728, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 729, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 731, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 732, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 734, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 735, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 737, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 738, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 740, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 741, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 730, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 733, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 736, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 739, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 742, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 743, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain7AutoInput()
    'Insert Container 7 information from the ASR'
    
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AMU" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1064, False)
        txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1065, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1042, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1043, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1044, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1045, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1046, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1048, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1049, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1051, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1052, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1054, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1055, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1057, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1058, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1047, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1050, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1053, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1056, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1059, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1060, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("ACB" & rowNum).Value
        Select Case Vendor
        Case ""
            txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 352, False)
            txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 353, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 359, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 360, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 361, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 362, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 363, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 364, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 365, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 366, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 367, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 368, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 369, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 370, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 371, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 376, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 377, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 378, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 379, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 380, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False), "Currency")
        Case Else
            txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 784, False)
            txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 785, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 763, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 764, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 765, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 766, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 767, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 769, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 770, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 772, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 773, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 775, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 776, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 778, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 779, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 768, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 771, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 774, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 777, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 780, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 781, False), "Currency")
        End Select
    End Select
End Sub

Private Sub InsertContain8AutoInput()
'Insert Container 8 information from the ASR'
    
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True

    Dim Vendor As String
    Vendor = Worksheets("ASR").Range("AOG" & rowNum).Value
    Select Case Vendor
        
    Case Is <> ""
        txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1102, False)
        txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1103, False)
        txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1080, False), "Currency")
        txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1081, False), "Currency")
        txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1082, False)
        txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1083, False)
        txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1084, False), "Currency")
        txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1086, False)
        txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1087, False), "Currency")
        txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1089, False)
        txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1090, False), "Currency")
        txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1092, False)
        txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1093, False), "Currency")
        txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1095, False)
        txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1096, False), "Currency")
        txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1085, False)
        txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1088, False)
        txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1091, False)
        txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1094, False)
        txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1097, False)
        txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 1098, False), "Currency")
    Case Else
        Vendor = Worksheets("ASR").Range("ADN" & rowNum).Value
        Select Case Vendor
        Case ""
            txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 404, False)
            txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 405, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 411, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 412, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 413, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 414, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 415, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 416, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 417, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 418, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 419, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 420, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 421, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 422, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 423, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 428, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 429, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 430, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 431, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 432, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False), "Currency")
        Case Else
            txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 822, False)
            txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 823, False)
            txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 801, False), "Currency")
            txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 802, False), "Currency")
            txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 803, False)
            txt1CurrFeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 804, False)
            txt1CurrFeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 805, False), "Currency")
            txt1CurrFeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 807, False)
            txt1CurrFeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 808, False), "Currency")
            txt1CurrFeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 810, False)
            txt1CurrFeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 811, False), "Currency")
            txt1CurrFeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 813, False)
            txt1CurrFeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 814, False), "Currency")
            txt1CurrFeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 816, False)
            txt1CurrFeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 817, False), "Currency")
            txt1CurrRate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 806, False)
            txt1CurrRate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 809, False)
            txt1CurrRate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 812, False)
            txt1CurrRate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 815, False)
            txt1CurrRate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 818, False)
            txt1CurrMonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:GGG1099"), 819, False), "Currency")
        End Select
    End Select
End Sub


Private Sub btnUpdate1_Click()
    If containNum = 1 Then
        Call UpdateSavingsCont1
    ElseIf containNum = 2 Then
        Call UpdateSavingsCont2
    ElseIf containNum = 3 Then
        Call UpdateSavingsCont3
    ElseIf containNum = 4 Then
        Call UpdateSavingsCont4
    ElseIf containNum = 5 Then
        Call UpdateSavingsCont5
    ElseIf containNum = 6 Then
        Call UpdateSavingsCont6
    ElseIf containNum = 7 Then
        Call UpdateSavingsCont7
    ElseIf containNum = 8 Then
        Call UpdateSavingsCont8
    End If
End Sub

Private Sub UpdateSavingsCont1()
    Worksheets("ASR").Range("BVR" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("BVS" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("BVV" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("BVY" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("BWB" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("BWE" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("BWH" & rowNum).Value = txt1CurrFeePrice5.Value
    
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("BWW" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("BWX" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("BWY" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("BWZ" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("BWJ" & rowNum).Value, "Currency")

End Sub

Private Sub UpdateSavingsCont2()
    Worksheets("ASR").Range("BXS" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("BXT" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("BXW" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("BXZ" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("BYC" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("BYF" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("BYI" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("BYX" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("BYY" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("BYZ" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("BZA" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("BYK" & rowNum).Value, "Currency")

End Sub

Private Sub UpdateSavingsCont3()
    Worksheets("ASR").Range("BZV" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("BZW" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("BZZ" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CAC" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CAF" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CAI" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CAL" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("CBA" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("CBB" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("CBC" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("CBD" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("CAN" & rowNum).Value, "Currency")


End Sub

Private Sub UpdateSavingsCont4()
    Worksheets("ASR").Range("CBY" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CBZ" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CCC" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CCF" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CCI" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CCL" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CCO" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("CDD" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("CDE" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("CDF" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("CDG" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("CCQ" & rowNum).Value, "Currency")

End Sub

Private Sub UpdateSavingsCont5()
    Worksheets("ASR").Range("CEB" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CEC" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CEF" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CEI" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CEL" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CEO" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CER" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("CFG" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("CFH" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("CFI" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("CFJ" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("CET" & rowNum).Value, "Currency")

End Sub

Private Sub UpdateSavingsCont6()
    Worksheets("ASR").Range("CGE" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CGF" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CGI" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CGL" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CGO" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CGR" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CGU" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("CHJ" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("CHK" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("CHL" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("CHM" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("CGW" & rowNum).Value, "Currency")


End Sub

Private Sub UpdateSavingsCont7()
    Worksheets("ASR").Range("CIH" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CII" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CIL" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CIO" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CIR" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CIU" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CIX" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("CJM" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("CJN" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("CJO" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("CJP" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("CIZ" & rowNum).Value, "Currency")

End Sub

Private Sub UpdateSavingsCont8()
    Worksheets("ASR").Range("CKK" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CKL" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CKO" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CKR" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CKU" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CKX" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CLA" & rowNum).Value = txt1CurrFeePrice5.Value
    
    txt1ImpBC.Value = Format(Worksheets("ASR").Range("CLP" & rowNum).Value, "Currency")
    txt1ImpRR.Value = Format(Worksheets("ASR").Range("CLQ" & rowNum).Value, "Currency")
    txt1ImpVS.Value = Format(Worksheets("ASR").Range("CLR" & rowNum).Value, "Currency")
    txt1ImpSS.Value = Format(Worksheets("ASR").Range("CLS" & rowNum).Value, "Currency")
    txt2ImpBC.Value = Format(Worksheets("ASR").Range("CMI" & rowNum).Value, "Currency")
    txt2ImpRR.Value = Format(Worksheets("ASR").Range("CMJ" & rowNum).Value, "Currency")
    txt2ImpVS.Value = Format(Worksheets("ASR").Range("CMK" & rowNum).Value, "Currency")
    txt2ImpSS.Value = Format(Worksheets("ASR").Range("CML" & rowNum).Value, "Currency")
    txt1ImpTotal.Value = Format(Worksheets("ASR").Range("CMH" & rowNum).Value, "Currency")
    txt1Gained.Value = Format(Worksheets("ASR").Range("CMD" & rowNum).Value, "Currency")
    txt1Rescinded.Value = Format(Worksheets("ASR").Range("CMC" & rowNum).Value, "Currency")
    txt1CurrMonSpend.Value = Format(Worksheets("ASR").Range("CLC" & rowNum).Value, "Currency")

End Sub

Private Sub btnSave_Click()
Worksheets("ASR").Range("QV" & rowNum).Value = txtSiteNotes.Value
If containNum = 1 Then Call SaveCont1
If containNum = 2 Then Call SaveCont2
If containNum = 3 Then Call SaveCont3
If containNum = 4 Then Call SaveCont4
If containNum = 5 Then Call SaveCont5
If containNum = 6 Then Call SaveCont6
If containNum = 7 Then Call SaveCont7
If containNum = 8 Then Call SaveCont8
End Sub

Private Sub SaveCont1()
'Insert Current Service for Container 1'
    Worksheets("ASR").Range("BVI" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("BVJ" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BVK" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("BVL" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BVM" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("BVN" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("BVO" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BVR" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("BVS" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("BVT" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("BVU" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("BVV" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("BVW" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("BVX" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("BVY" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("BVZ" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("BWA" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("BWB" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("BWC" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("BWD" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("BWE" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("BWF" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("BWG" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("BWH" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("BWI" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("BXD" & rowNum).Value = txtContNotes.Value
    
     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BLL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLL" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BLM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLM" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BLN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLN" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BLO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLO" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BLP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLP" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BLQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLQ" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BLR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLR" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BLS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLS" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BLU" & rowNum).Value = "x"
        Worksheets("ASR").Range("BXA" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BLU" & rowNum).Value = ""
        Worksheets("ASR").Range("BXA" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BXB" & rowNum).Value = cmbContract1.Value
End Sub


Private Sub SaveCont2()
'Insert Current Service for Container 2'
    Worksheets("ASR").Range("BXJ" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("BXK" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BXL" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("BXM" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BXN" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("BXO" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("BXP" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BXS" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("BXT" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("BXU" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("BXV" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("BXW" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("BXX" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("BXY" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("BXZ" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("BYA" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("BYB" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("BYC" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("BYD" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("BYE" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("BYF" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("BYG" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("BYH" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("BYI" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("BYJ" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("BZE" & rowNum).Value = txtContNotes.Value

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BLV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLV" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BLW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLW" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BLX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLX" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BLY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLY" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BLZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BLZ" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BMA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMA" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BMB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMB" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BMC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMC" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BME" & rowNum).Value = "x"
        Worksheets("ASR").Range("BZB" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BME" & rowNum).Value = ""
        Worksheets("ASR").Range("BZB" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("BZC" & rowNum).Value = cmbContract1.Value
End Sub

Private Sub SaveCont3()
'Insert Current Service for Container 3'
    Worksheets("ASR").Range("BZM" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("BZN" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("BZO" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("BZP" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("BZQ" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("BZR" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("BZS" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("BZV" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("BZW" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("BZX" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("BZY" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("BZZ" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CAA" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("CAB" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("CAC" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CAD" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("CAE" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("CAF" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CAG" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("CAH" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("CAI" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CAJ" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("CAK" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("CAL" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("CAM" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("CBH" & rowNum).Value = txtContNotes.Value

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BMF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMF" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BMG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMG" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BMH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMH" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BMI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMI" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BMJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMJ" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BMK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMK" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BML" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BML" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BMM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMM" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BMO" & rowNum).Value = "x"
        Worksheets("ASR").Range("CBE" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BMO" & rowNum).Value = ""
        Worksheets("ASR").Range("CBE" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("CBF" & rowNum).Value = cmbContract1.Value
End Sub


Private Sub SaveCont4()
'Insert Current Service for Container 4'
    Worksheets("ASR").Range("CBP" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("CBQ" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("CBR" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("CBS" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("CBT" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("CBU" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("CBV" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("CBY" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CBZ" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CCA" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("CCB" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("CCC" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CCD" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("CCE" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("CCF" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CCG" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("CCH" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("CCI" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CCJ" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("CCK" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("CCL" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CCM" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("CCN" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("CCO" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("CCP" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("CDK" & rowNum).Value = txtContNotes.Value

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BMP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMP" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BMQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMQ" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BMR" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMR" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BMS" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMS" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BMT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMT" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BMU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMU" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BMV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMV" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BMW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMW" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BMY" & rowNum).Value = "x"
        Worksheets("ASR").Range("CDH" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BMY" & rowNum).Value = ""
        Worksheets("ASR").Range("CDH" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("CDI" & rowNum).Value = cmbContract1.Value
End Sub


Private Sub SaveCont5()
'Insert Current Service for Container 5'
    Worksheets("ASR").Range("CDS" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("CDT" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("CDU" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("CDV" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("CDW" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("CDX" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("CDY" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("CEB" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CEC" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CED" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("CEE" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("CEF" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CEG" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("CEH" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("CEI" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CEJ" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("CEK" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("CEL" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CEM" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("CEN" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("CEO" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CEP" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("CEQ" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("CER" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("CES" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("CFN" & rowNum).Value = txtContNotes.Value

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BMZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BMZ" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BNA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNA" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BNB" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNB" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BNC" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNC" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BND" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BND" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BNE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNE" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BNF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNF" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BNG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNG" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BNI" & rowNum).Value = "x"
        Worksheets("ASR").Range("CFK" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BNI" & rowNum).Value = ""
        Worksheets("ASR").Range("CFK" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("CFL" & rowNum).Value = cmbContract1.Value
End Sub

Private Sub SaveCont6()
'Insert Current Service for Container 6'
    Worksheets("ASR").Range("CFV" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("CFW" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("CFX" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("CFY" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("CFZ" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("CGA" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("CGB" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("CGE" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CEF" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CGG" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("CGH" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("CGI" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CGJ" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("CGK" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("CGL" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CGM" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("CGN" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("CGO" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CGP" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("CGQ" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("CGR" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CGS" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("CGT" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("CGU" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("CGV" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("CHQ" & rowNum).Value = txtContNotes.Value
    

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BNJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNJ" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BNK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNK" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BNL" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNL" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BNM" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNM" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BNN" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNN" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BNO" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNO" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BNP" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNP" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BNQ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNQ" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BNS" & rowNum).Value = "x"
        Worksheets("ASR").Range("CNH" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BNS" & rowNum).Value = ""
        Worksheets("ASR").Range("CHN" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("CHO" & rowNum).Value = cmbContract1.Value
End Sub

Private Sub SaveCont7()
'Insert Current Service for Container 7'
    Worksheets("ASR").Range("CHY" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("CHZ" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("CIA" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("CIB" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("CIC" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("CID" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("CIE" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("CIH" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CII" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CIJ" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("CIK" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("CIL" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CIM" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("CIN" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("CIO" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CIP" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("CIQ" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("CIR" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CIS" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("CIT" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("CIU" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CIV" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("CIW" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("CIX" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("CIY" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("CJT" & rowNum).Value = txtContNotes.Value

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BNT" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNT" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BNU" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNU" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BNV" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNV" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BNW" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNW" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BNX" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNX" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BNY" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNY" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BNZ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BNZ" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BOA" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOA" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BOC" & rowNum).Value = "x"
        Worksheets("ASR").Range("CJQ" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BOC" & rowNum).Value = ""
        Worksheets("ASR").Range("CJQ" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("CJR" & rowNum).Value = cmbContract1.Value
End Sub

Private Sub SaveCont8()
'Insert Current Service for Container 8'
    Worksheets("ASR").Range("CKB" & rowNum).Value = txt1Vendor.Value
    Worksheets("ASR").Range("CKC" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("CKD" & rowNum).Value = txt1TypeWaste.Value
    Worksheets("ASR").Range("CKE" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("CKF" & rowNum).Value = txt1Mes.Value
    Worksheets("ASR").Range("CKG" & rowNum).Value = txt1ContainType.Value
    Worksheets("ASR").Range("CKH" & rowNum).Value = txt1NumPickups.Value
    Worksheets("ASR").Range("CKK" & rowNum).Value = txt1BaseSvc.Value
    Worksheets("ASR").Range("CKL" & rowNum).Value = txt1EnvFee.Value
    Worksheets("ASR").Range("CKM" & rowNum).Value = txt1FuelFee.Value
    
    Worksheets("ASR").Range("CKN" & rowNum).Value = txt1CurrFeeType1.Value
    Worksheets("ASR").Range("CKO" & rowNum).Value = txt1CurrFeePrice1.Value
    Worksheets("ASR").Range("CKP" & rowNum).Value = txt1CurrRate1.Value
    Worksheets("ASR").Range("CKQ" & rowNum).Value = txt1CurrFeeType2.Value
    Worksheets("ASR").Range("CKR" & rowNum).Value = txt1CurrFeePrice2.Value
    Worksheets("ASR").Range("CKS" & rowNum).Value = txt1CurrRate2.Value
    Worksheets("ASR").Range("CKT" & rowNum).Value = txt1CurrFeeType3.Value
    Worksheets("ASR").Range("CKU" & rowNum).Value = txt1CurrFeePrice3.Value
    Worksheets("ASR").Range("CKV" & rowNum).Value = txt1CurrRate3.Value
    Worksheets("ASR").Range("CKW" & rowNum).Value = txt1CurrFeeType4.Value
    Worksheets("ASR").Range("CKX" & rowNum).Value = txt1CurrFeePrice4.Value
    Worksheets("ASR").Range("CKY" & rowNum).Value = txt1CurrRate4.Value
    Worksheets("ASR").Range("CKZ" & rowNum).Value = txt1CurrFeeType5.Value
    Worksheets("ASR").Range("CLA" & rowNum).Value = txt1CurrFeePrice5.Value
    Worksheets("ASR").Range("CLB" & rowNum).Value = txt1CurrRate5.Value
    Worksheets("ASR").Range("CLW" & rowNum).Value = txtContNotes.Value

     If chkMon1.Value = True Then
        Worksheets("ASR").Range("BOD" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOD" & rowNum).Value = ""
    End If
    If chkTues1.Value = True Then
        Worksheets("ASR").Range("BOE" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOE" & rowNum).Value = ""
    End If
    If chkWed1.Value = True Then
        Worksheets("ASR").Range("BOF" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOF" & rowNum).Value = ""
    End If
    If chkThurs1.Value = True Then
        Worksheets("ASR").Range("BOG" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOG" & rowNum).Value = ""
    End If
    If chkFri1.Value = True Then
        Worksheets("ASR").Range("BOH" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOH" & rowNum).Value = ""
    End If
    If chkSat1.Value = True Then
        Worksheets("ASR").Range("BOI" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOI" & rowNum).Value = ""
    End If
    If chkSun1.Value = True Then
        Worksheets("ASR").Range("BOJ" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOJ" & rowNum).Value = ""
    End If
    If chkOnCall1.Value = True Then
        Worksheets("ASR").Range("BOK" & rowNum).Value = "x"
    Else: Worksheets("ASR").Range("BOK" & rowNum).Value = ""
    End If
    If chkOther1.Value = True Then
        Worksheets("ASR").Range("BOM" & rowNum).Value = "x"
        Worksheets("ASR").Range("CLT" & rowNum).Value = txtOther1.Value
    Else: Worksheets("ASR").Range("BOM" & rowNum).Value = ""
        Worksheets("ASR").Range("CLT" & rowNum).Value = ""
    End If
    Worksheets("ASR").Range("CLU" & rowNum).Value = cmbContract1.Value
End Sub


